|
|
 |
|
|
|
|
334: With mvarpResultset
335: Do Until .EOF
336: .MoveNext
337: If .EOF Then Exit Do
338: Loop
339: End With
340: ' mvarpEOF = True
341: ' mvarpBOF = False
342: pDataChanged = False
343:
344: Exit Sub
345:
346: GoLastError:
347: MsgBox Err.Description
348: End Sub
349:
350: '##ModelId=352AB4ED01C2
351: Public Sub getFirstRec()
352: On Error GoTo GoFirstError
353:
354: With mvarpResultset
355: .MoveFirst
356: End With
357: ' pBOF = True
358: ' pEOF = False
359: 'displayCurrentRecord
360: pDataChanged = False
361:
362: Screen.MousePointer = vbDefault
363: Exit Sub
364:
365: GoFirstError:
366: MsgBox Err.Description
367: End Sub
368:
369: '##ModelId=352AB4ED026C
370: Public Sub getPreviousRec()
371: On Error GoTo GoPrevError
372:
373: With mvarpResultset
374: If Not .BOF Then .MovePrevious
375: If .BOF And .RecordCount > 0 Then
376: Beep
377: 'moved off the end so go back
378: .MoveFirst
379: End If
380: End With
381: 'mvarpBOF = True
382: pDataChanged = False
383:
|
|
|
|
|
|